What PC? 1997 January/WPCJAN97.ISO/mgiwjan.dxr/00011_MGINoiseMove, MGIPosterHighLight.ls

Text File | 1996-11-07 | 13.0 KB | 324 lines

on MGINoiseMove
  global MGIIntroCounter, MGINoiseSprite, MGILogoSprite, MGIFoodPosterSprite, MGIFindTV, MGIMasterList, MGILastPosterSprite, MGIInternetTextList, MGIWhichHomeMacList, MGIWhichHomePCList, MGIGETCount, MGISTONEON
  if MGISTONEON = 0 then
    if the mouseUp and (MGIFindTV = 2) then
      set MGIFindTV to 3
    end if
    if rollOver(MGILogoSprite) then
      set the castNum of sprite MGINoiseSprite to 59
      if MGIFindTV = 1 then
        set the castNum of sprite getAt(getAt(MGIInternetTextList, 1), 1) to getAt(getAt(MGIInternetTextList, 1), 8)
        set the locH of sprite getAt(getAt(MGIInternetTextList, 1), 1) to getAt(getAt(MGIInternetTextList, 1), 3)
        set the locV of sprite getAt(getAt(MGIInternetTextList, 1), 1) to getAt(getAt(MGIInternetTextList, 1), 4)
        set the ink of sprite getAt(getAt(MGIInternetTextList, 1), 1) to getAt(getAt(MGIInternetTextList, 1), 5)
        set the locH of sprite 28 to 2000
        set the locH of sprite 29 to 2000
        set the ink of sprite MGINoiseSprite to 36
        set the castNum of sprite 47 to the castNum of sprite 47 - 1
        updateStage()
        MGISpinE()
        set the locH of sprite 2 to the mouseH
        set the locV of sprite 2 to the mouseV
      end if
      repeat while rollOver(MGILogoSprite) or rollOver(getAt(getAt(MGIInternetTextList, 1), 1))
        MGISpinE()
        if MGIFindTV = 1 then
          repeat while MGIFindTV = 1
            MGISpinE()
            set the locH of sprite 2 to the mouseH
            set the locV of sprite 2 to the mouseV
            if the mouseDown then
              cursor(200)
              set the locH of sprite 34 to 2000
              set the locH of sprite 2 to 2000
              updateStage()
              repeat with d = MGIFoodPosterSprite to MGILastPosterSprite
                MGISpinE()
                set g to d - MGIFoodPosterSprite + 1
                set the castNum of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 8)
                set the locH of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 3)
                set the locV of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 4)
                set the ink of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 5)
                updateStage()
                set the locV of sprite d to 550
                repeat while the locV of sprite d > (407 + 15)
                  set the locV of sprite d to the locV of sprite d - 15
                  MGISpinE()
                  updateStage()
                end repeat
                set the locV of sprite d to 407
                updateStage()
                set the locH of sprite getAt(getAt(MGIInternetTextList, g), 1) to 2000
                wait(1)
              end repeat
              repeat with t = 1 to count(MGIMasterList)
                if count(getAt(MGIMasterList, t)) > 2 then
                  if getAt(getAt(MGIMasterList, t), 5) = 39 then
                    set the ink of sprite getAt(getAt(MGIMasterList, t), 1) to 36
                    setAt(getAt(MGIMasterList, t), 5, 36)
                  end if
                end if
              end repeat
              set the ink of sprite 1 to 36
              repeat with x = 39 to 47
                set the ink of sprite x to 36
              end repeat
              cursor(-1)
              set the locH of sprite 34 to 560
              updateStage()
              set MGIFindTV to 2
              cursor(-1)
            end if
          end repeat
        else
          if (MGIFindTV = 3) and the mouseDown then
            cursor(200)
            set MGIIntroCounter to 0
            repeat with d = MGIFoodPosterSprite to MGILastPosterSprite
              set g to d - MGIFoodPosterSprite + 1
              set the castNum of sprite MGINoiseSprite to getAt(getAt(MGIInternetTextList, g), 6)
              set the castNum of sprite d to the castNum of sprite d + 1
              set the castNum of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 2)
              set the locH of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 3)
              set the locV of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 4)
              set the ink of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 5)
              updateStage()
              repeat with t = 1 to 30
                MGISpinE()
                if MGIIntroCounter = 3 then
                  set MGIIntroCounter to 0
                  set the castNum of sprite MGINoiseSprite to the castNum of sprite MGINoiseSprite - 3
                  updateStage()
                  next repeat
                end if
                set MGIIntroCounter to 1 + MGIIntroCounter
                set the castNum of sprite MGINoiseSprite to the castNum of sprite MGINoiseSprite + 1
                updateStage()
              end repeat
              set the castNum of sprite d to the castNum of sprite d - 1
              set the locH of sprite getAt(getAt(MGIInternetTextList, g), 1) to 2000
              set the castNum of sprite MGINoiseSprite to 58
              set MGIIntroCounter to 0
              updateStage()
            end repeat
            cursor(-1)
          end if
        end if
        if MGIIntroCounter = 3 then
          set MGIIntroCounter to 0
          set the castNum of sprite MGINoiseSprite to 59
          updateStage()
          next repeat
        end if
        set MGIIntroCounter to 1 + MGIIntroCounter
        set the castNum of sprite MGINoiseSprite to the castNum of sprite MGINoiseSprite + 1
        updateStage()
      end repeat
      if MGIFindTV = 1 then
        set the ink of sprite MGINoiseSprite to 39
        set the castNum of sprite 47 to the castNum of sprite 47 + 1
        set the locH of sprite getAt(getAt(MGIInternetTextList, 1), 1) to 2000
        MGISpinE()
        set the locH of sprite 2 to the mouseH
        set the locV of sprite 2 to the mouseV
      end if
    end if
    if not rollOver(MGILogoSprite) then
      set the castNum of sprite MGINoiseSprite to 58
      set MGIIntroCounter to 0
      updateStage()
    end if
  end if
end

on MGIPosterHighLight
  global MGIFoodPosterSprite, MGILastPosterSprite, MGINoiseSprite, MGIIntroCounter, MGIInternetTextList, MGILaunchI, IFLCanChange, MGISTONEON, STComp, MGICompOnStage, MGIRadio
  if MGIRadio = 0 then
    if MGILaunchI = 0 then
      repeat with d = MGIFoodPosterSprite to MGILastPosterSprite
        if rollOver(d) and not rollOver(34) then
          set g to d - MGIFoodPosterSprite + 1
          set the castNum of sprite MGINoiseSprite to getAt(getAt(MGIInternetTextList, g), 6)
          set the castNum of sprite d to the castNum of sprite d + 1
          set the castNum of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 2)
          set the locH of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 3)
          set the locV of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 4)
          set the ink of sprite getAt(getAt(MGIInternetTextList, g), 1) to getAt(getAt(MGIInternetTextList, g), 5)
          updateStage()
          repeat while rollOver(d)
            if rollOver(33) then
              exit repeat
            end if
            if the mouseDown then
              set MGILaunchI to g
              exit repeat
            end if
            MGISpinE()
            if MGIIntroCounter = 3 then
              set MGIIntroCounter to 0
              set the castNum of sprite MGINoiseSprite to the castNum of sprite MGINoiseSprite - 3
              updateStage()
              next repeat
            end if
            set MGIIntroCounter to 1 + MGIIntroCounter
            set the castNum of sprite MGINoiseSprite to the castNum of sprite MGINoiseSprite + 1
            updateStage()
          end repeat
          set the castNum of sprite d to the castNum of sprite d - 1
          set the locH of sprite getAt(getAt(MGIInternetTextList, g), 1) to 2000
          set the castNum of sprite MGINoiseSprite to 58
          set MGIIntroCounter to 0
          updateStage()
        end if
        if MGILaunchI <> 0 then
          exit repeat
        end if
      end repeat
    end if
  end if
  if MGILaunchI <> 0 then
    set MGILaunchI to 0
    set IFLCanChange to 0
    if the machineType < 200 then
      set the locH of sprite 48 to 2000
      set the castNum of sprite 36 to 157
      set the locH of sprite 36 to 70
      set the locV of sprite 36 to 166
      set ARTNETUP to 0
      updateStage()
      repeat while 1
        if ARTNETUP = 1 then
          if word the mouseWord of field 157 = "YES" then
            set ARTThisword to the mouseWord
            set the foreColor of word ARTThisword of field 157 to 0
            repeat while word the mouseWord of field 157 = "YES"
              if the mouseDown then
                set ARTYesOrCancel to 1
                exit repeat
              end if
            end repeat
            set the foreColor of word ARTThisword of field 157 to 255
          end if
          if word the mouseWord of field 157 = "NO" then
            set ARTThisword to the mouseWord
            set the foreColor of word ARTThisword of field 157 to 0
            repeat while word the mouseWord of field 157 = "NO"
              if the mouseDown then
                set ARTYesOrCancel to 2
                exit repeat
                updateStage()
              end if
            end repeat
            set the foreColor of word ARTThisword of field 157 to 255
          end if
          if ARTYesOrCancel > 0 then
            exit repeat
          else
            if (the mouseCast <> 157) and the mouseDown then
              beep()
            end if
          end if
          next repeat
        end if
        if the mouseUp then
          set ARTNETUP to 1
        end if
      end repeat
      set ARTNETUP to 0
      if ARTYesOrCancel = 2 then
        set the locH of sprite 36 to 2000
        updateStage()
        repeat while the mouseDown
        end repeat
      else
        if MGICompOnStage = 1 then
          set MGISTONEON to 0
          set STComp to 0
          set the locH of sprite 48 to 2000
          set the locH of sprite 22 to 2000
          set the locH of sprite 9 to 2000
          set MGICompOnStage to 4
          forget(window "STONEY")
          updateStage()
        end if
        set the castNum of sprite 36 to 155
        set the locH of sprite 36 to 70
        set the locV of sprite 36 to 195
        updateStage()
        repeat while the mouseDown
        end repeat
      end if
    else
      set the locH of sprite 48 to 2000
      set the castNum of sprite 36 to 157
      set the locH of sprite 36 to 70
      set the locV of sprite 36 to 166
      set ARTNETUP to 0
      updateStage()
      repeat while 1
        if ARTNETUP = 1 then
          if word the mouseWord of field 157 = "YES" then
            set ARTThisword to the mouseWord
            set the foreColor of word ARTThisword of field 157 to 0
            repeat while word the mouseWord of field 157 = "YES"
              if the mouseDown then
                set ARTYesOrCancel to 1
                exit repeat
              end if
            end repeat
            set the foreColor of word ARTThisword of field 157 to 255
          end if
          if word the mouseWord of field 157 = "NO" then
            set ARTThisword to the mouseWord
            set the foreColor of word ARTThisword of field 157 to 0
            repeat while word the mouseWord of field 157 = "NO"
              if the mouseDown then
                set ARTYesOrCancel to 2
                exit repeat
                updateStage()
              end if
            end repeat
            set the foreColor of word ARTThisword of field 157 to 255
          end if
          if ARTYesOrCancel > 0 then
            exit repeat
          else
            if (the mouseCast <> 157) and the mouseDown then
              beep()
            end if
          end if
          next repeat
        end if
        if the mouseUp then
          set ARTNETUP to 1
        end if
      end repeat
      set ARTNETUP to 0
      if ARTYesOrCancel = 2 then
        set the locH of sprite 36 to 2000
        updateStage()
        repeat while the mouseDown
        end repeat
      else
        if MGICompOnStage = 1 then
          set MGISTONEON to 0
          set STComp to 0
          set the locH of sprite 48 to 2000
          set the locH of sprite 22 to 2000
          set the locH of sprite 9 to 2000
          set MGICompOnStage to 4
          forget(window "STONEY")
          updateStage()
        end if
        set the castNum of sprite 36 to 155
        set the locH of sprite 36 to 70
        set the locV of sprite 36 to 195
        updateStage()
        repeat while the mouseDown
        end repeat
        StartBrowser("html/room/index.htm")
      end if
    end if
  end if
end